Artbeats: WebTools/Artbeats WebTools.iso/pc/extras/ibc2demo/intro.dir/00999.ls

Text File | 1996-02-28 | 8.2 KB | 300 lines

on morph total, delay, downSound, upSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  set this to the castNum of sprite the clickOn
  set wait to the timer
  repeat with variable = 1 to total - 1
    repeat while wait > the timer
    end repeat
    set the castNum of sprite the clickOn to this + variable
    updateStage()
    set wait to the timer + delay
  end repeat
  repeat while the stillDown or soundBusy(1)
  end repeat
  if stringp(upSound) then
    puppetSound(upSound)
  end if
  set this to the castNum of sprite the clickOn
  set wait to the timer
  repeat with variable = 1 to total - 1
    repeat while wait > the timer
    end repeat
    set the castNum of sprite the clickOn to this - variable
    updateStage()
    set wait to the timer + delay
  end repeat
  repeat while soundBusy(1)
  end repeat
  puppetSound(0)
end

on click downSound, upSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  set variable to the castNum of sprite the clickOn
  set the castNum of sprite the clickOn to variable + 1
  updateStage()
  repeat while the stillDown or soundBusy(1)
  end repeat
  if stringp(upSound) then
    puppetSound(upSound)
  end if
  set the castNum of sprite the clickOn to variable
  updateStage()
  repeat while soundBusy(1)
  end repeat
  puppetSound(0)
  updateStage()
end

on jogger total, downSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  set myNumber to the castNum of sprite the clickOn
  repeat while the stillDown
    set vert to the mouseV - the locV of sprite the clickOn
    set horz to the mouseH - the locH of sprite the clickOn
    if horz < 0 then
      set angle to 3.14159260000000007 * 3 / 2
      set offset to -0.001
    else
      set angle to 3.14159260000000007 / 2
      set offset to 0.001
    end if
    set angle to atan(vert / (offset + horz)) + angle
    set angle to integer((angle * (total - 1) / 6.28318520000000014) + 1)
    set snap to word 1 of the name of cast the castNum of sprite the clickOn
    put " " after snap
    put angle after snap
    set the castNum of sprite the clickOn to the number of cast snap
    updateStage()
  end repeat
  set the castNum of sprite the clickOn to myNumber
  puppetSound(0)
  updateStage()
end

on motion new, offsetH, offsetV, downSound, upSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  set variable to the castNum of sprite the clickOn
  set horz to the locH of sprite the clickOn
  set vert to the locV of sprite the clickOn
  set the castNum of sprite the clickOn to variable + new
  set the locH of sprite the clickOn to horz + offsetH
  set the locV of sprite the clickOn to vert + offsetV
  updateStage()
  repeat while the stillDown or soundBusy(1)
  end repeat
  if stringp(upSound) then
    puppetSound(upSound)
  end if
  set the castNum of sprite the clickOn to variable
  set the locH of sprite the clickOn to horz
  set the locV of sprite the clickOn to vert
  updateStage()
  repeat while soundBusy(1)
  end repeat
  puppetSound(0)
  updateStage()
end

on dial total, downSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  repeat while the stillDown
    set vert to the mouseV - the locV of sprite the clickOn
    set horz to the mouseH - the locH of sprite the clickOn
    if horz < 0 then
      set angle to 3.14159260000000007 * 3 / 2
      set offset to -0.001
    else
      set angle to 3.14159260000000007 / 2
      set offset to 0.001
    end if
    set angle to atan(vert / (offset + horz)) + angle
    set angle to integer((angle * (total - 1) / 6.28318520000000014) + 1)
    set snap to word 1 of the name of cast the castNum of sprite the clickOn
    put " " after snap
    put angle after snap
    set the castNum of sprite the clickOn to the number of cast snap
    updateStage()
  end repeat
  puppetSound(0)
end

on toggle top
  set myName to word 1 of the name of cast the castNum of sprite the clickOn
  repeat while the stillDown
    set vert to the locV of sprite the clickOn - the mouseV
    set vpos to vert / 5
    if vpos > top then
      set vpos to top
    end if
    if vpos < -top then
      set vpos to -top
    end if
    set snap to myName && vpos
    set the castNum of sprite the clickOn to the number of cast snap
    updateStage()
  end repeat
  if value(word 2 of snap) < 0 then
    set vpos to -top
  else
    set vpos to top
  end if
  set snap to myName && vpos
  set the text of cast "string" to snap
  set the castNum of sprite the clickOn to the number of cast snap
  updateStage()
end

on switch total, delay, downSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  set variable to the castNum of sprite the clickOn
  repeat with n = 1 to abs(total) - 1
    set wait to the timer + delay
    if total > 0 then
      set the castNum of sprite the clickOn to variable + n
    else
      set the castNum of sprite the clickOn to variable - n
    end if
    updateStage()
    repeat while wait > the timer
    end repeat
  end repeat
  repeat while soundBusy(1)
  end repeat
  puppetSound(0)
end

on loop total, delay, soundLoop
  if stringp(soundLoop) then
    puppetSound(soundLoop)
  end if
  set myNumber to the castNum of sprite the clickOn
  repeat while the stillDown
    repeat with n = 1 to total - 1
      set wait to the timer + delay
      set the castNum of sprite the clickOn to myNumber + n
      updateStage()
      repeat while wait > the timer
      end repeat
    end repeat
    set the castNum of sprite the clickOn to myNumber
    updateStage()
  end repeat
  puppetSound(0)
end

on pointer total, downSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  repeat while the stillDown
    set vert to the mouseV - the locV of sprite the clickOn
    set horz to the mouseH - the locH of sprite the clickOn
    set angle to 3.14159260000000007 / 4
    set angle to atan(horz / (0.001 - vert)) + angle
    set angle to integer((angle * (total - 1) / 3.14159260000000007 * 2.0) + 1)
    if angle > total then
      set angle to total
    end if
    if angle < 1 then
      set angle to 1
    end if
    if vert < 0 then
      set snap to word 1 of the name of cast the castNum of sprite the clickOn
      put " " after snap
      put angle after snap
      set the castNum of sprite the clickOn to the number of cast snap
      updateStage()
    end if
  end repeat
  puppetSound(0)
  updateStage()
end

on steps total, delay, downSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  set myCast to the castNum of sprite the clickOn
  set myName to the name of cast myCast
  set myNumber to word 2 of myName
  set myName to word 1 of myName
  repeat while the stillDown
    set wait to the timer + delay
    set myNumber to value(myNumber) + 1
    if myNumber > total then
      set myNumber to 1
    end if
    set myCast to myName && myNumber
    set the castNum of sprite the clickOn to the number of cast myCast
    set the locH of sprite the clickOn to the mouseH
    set the locV of sprite the clickOn to the mouseV
    updateStage()
    repeat while wait > the timer
    end repeat
  end repeat
  puppetSound(0)
  updateStage()
end

on thumb total, delay, downSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  set myCast to the castNum of sprite the clickOn
  set myName to the name of cast myCast
  set myNumber to word 2 of myName
  set myName to word 1 of myName
  repeat while the stillDown
    set wait to the timer + delay
    if the mouseV > the locV of sprite the clickOn then
      set myNumber to value(myNumber) + 1
      if myNumber > total then
        set myNumber to 1
      end if
    else
      set myNumber to value(myNumber) - 1
      if myNumber < 1 then
        set myNumber to total
      end if
    end if
    set myCast to myName && myNumber
    set the castNum of sprite the clickOn to the number of cast myCast
    updateStage()
    repeat while wait > the timer
    end repeat
  end repeat
  puppetSound(0)
  updateStage()
end

on flash downSound, upSound
  if stringp(downSound) then
    puppetSound(downSound)
  end if
  set the ink of sprite the clickOn to 4
  updateStage()
  repeat while the stillDown or soundBusy(1)
  end repeat
  if stringp(upSound) then
    puppetSound(upSound)
  end if
  set the ink of sprite the clickOn to 36
  updateStage()
  repeat while soundBusy(1)
  end repeat
  puppetSound(0)
end